Imports Microsoft.VisualBasic
Namespace sk.DAL
    Public Class Article

        Sub New(ByVal ID As Integer, ByVal user As String, ByVal title As String, ByVal text As String, ByVal Creation As Date, ByVal expiration As Date, ByVal post As Date, ByVal approve As Boolean, ByVal category As Integer)
            _ArticleID = ID
            _UserID = user
            _Title = title
            _Text = text
            _CreationDate = Creation
            _ExpirationDate = expiration
            _PostDate = post
            _Approved = approve
            _CategoryID = category
        End Sub

        Sub New()

        End Sub

        Private _ArticleID As Integer
        Public Property ArticleID() As Integer
            Get
                Return _ArticleID
            End Get
            Set(ByVal value As Integer)
                _ArticleID = value
            End Set
        End Property


        Private _UserID As String
        Public Property UserID() As String
            Get
                Return _UserID
            End Get
            Set(ByVal value As String)
                _UserID = value
            End Set
        End Property


        Private _Title As String
        Public Property Title() As String
            Get
                Return _Title
            End Get
            Set(ByVal value As String)
                _Title = value
            End Set
        End Property


        Private _Text As String
        Public Property Text() As String
            Get
                Return _Text
            End Get
            Set(ByVal value As String)
                _Text = value
            End Set
        End Property


        Private _CreationDate As Date
        Public Property CreationDate() As Date
            Get
                Return _CreationDate
            End Get
            Set(ByVal value As Date)
                _CreationDate = value
            End Set
        End Property


        Private _ExpirationDate As Date
        Public Property ExpirationDate() As Date
            Get
                Return _ExpirationDate
            End Get
            Set(ByVal value As Date)
                _ExpirationDate = value
            End Set
        End Property


        Private _PostDate As Date
        Public Property PostDate() As Date
            Get
                Return _PostDate
            End Get
            Set(ByVal value As Date)
                _PostDate = value
            End Set
        End Property


        Private _Approved As Boolean
        Public Property Approved() As Boolean
            Get
                Return _Approved
            End Get
            Set(ByVal value As Boolean)
                _Approved = value
            End Set
        End Property


        Private _CategoryID As Integer
        Public Property CategoryID() As Integer
            Get
                Return _CategoryID
            End Get
            Set(ByVal value As Integer)
                _CategoryID = value
            End Set
        End Property
    End Class
End Namespace